# Time-stamp: <28 Sep 99 11:51:35 giron1>

=head1 NAME

STC_DEF - STC specific definitions package

=head1 AUTHOR

 $Id: STC_DEF.pm,v 1.1 2007/10/08 09:26:04 schweitz Exp $
 Franck Giron

=head1 SYNOPSIS

 use STC_DEF;

 $Vocfile = givehash STC_DEF;

=head1 DESCRIPTION

This package contains some STC specific definitions, like the
correspondance between keywords and vocabulary lists.

=cut

package STC_DEF;

#----------------------------------------------------------------------

=head1 FUNCTIONS

Here are the different available functions

=head2 STC_Vocab_files

 returns a STC Vocabulary hash which associates a letter to a file
 containing vocabulary lists

 a addresses: Citynames, Streetnames, ...
 b spelling: a, b, c,...
 c cardinal numbers 1, 2, 3,...
 d dates
 f fm frequencies
 i international phonetic alphabet
 k commands
 n national phonetic alphabet
 o ordinal numbers 1st, 2nd, ...
 p PINs (four digit numbers) 
 q phrases 
 r station names for Radio
 s station names for TV
 t telephone numbers
 v Videotext
 z time

=cut

#----------------------------------------------------------------------

sub givehash {
  my $that = shift;
  my $class = ref($that) || $that;

  my $self = { 'a' => 'adr', 'b' => 'letters', 'c' => 'card', 'd' => 'dates',
	       'f' => 'fmfreq', 'i' => 'int_alp', 'k' => 'comm', 'n' => 'phon_alp',
	       'o' => 'ord', 'p' => 'pin', 'q' => 'phr', 'r' => 'radio', 's' => 'tvchan',
	       't' => 'telnr','v' => 'vtpage', 'z' => 'time' };

  bless $self, $class;
  return $self;
}
  
   
1;



